home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmiSoft / Dev / Lang / Nano.lha / nano / include / get_time.sub < prev    next >
Encoding:
Text File  |  2002-11-23  |  717 b   |  25 lines
  1. sub get_time (string time[9], string date[11]);
  2. // returns:
  3. // time: 00:00:00
  4. // date: 00-00-0000
  5.  
  6.     string n[2]; string t[2]; string d[2]; string p[5];
  7.     n = "0"; t = ":"; d = "-";
  8.  
  9.     time;
  10.     _year = _year + 1900;
  11.     inc _month;
  12.     if _hour < 10; time = n; endif;
  13.     str p _hour; time = time + p; time = time + t;
  14.     if _min < 10; time = time + n; endif;
  15.     str p _min; time = time + p; time = time + t;
  16.     if _sec < 10; time = time + n; endif;
  17.     str p _sec; time = time + p;
  18.  
  19.     if _day < 10; date = n; endif;
  20.     str p _day; date = date + p; date = date + d;
  21.     if _month < 10; date = date + n; endif;
  22.     str p _month; date = date + p; date = date + d;
  23.     str p _year; date = date + p;
  24. endsub;
  25.